(mouse-set-font): If user uses w32 dialog but

selects no font, treat that as zero selections, not one.

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 55d680d5e5e3a84740bb32fb3eade143c5059de4..5067b46d15ba560b66b7cf849bff796eadcecac1 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -900,7 +900,8 @@ the font chosen, covering all the charsets that can be fully represented
 with the font."
   (interactive
    (if w32-use-w32-font-dialog
-       (list (w32-select-font))
+       (let ((chosen-font (w32-select-font)))
+        (and chosen-font (list chosen-font)))
      (x-popup-menu
       last-nonmenu-event
     ;; Append list of fontsets currently defined.